// Definition of the Small Quiz program
// By: Catamount Software
// <http://www.catamount.com> 
// May 4, 1997
//

application "Small Quiz:VtHick" called "Small Quiz" with options { "nofolders" }
soup "SmallQuiz:VtHick" called "Survey Results" of "Small Quiz:VtHick"

overview "results" called "Survey Results" of "SmallQuiz:VtHick" queries "_uniqueID" contains
	{
	column "LName" width 50 is lastName
	column "FName" width 50 is firstName
	column "Phone" width 50 is phone
	column "City"  width 50 is city
	column "Info"  width 10 is info
	column "Join"  width 10 is join
	column "Newsletter" width 10 is newsletter
	column "Misc"  width 10 is misc	
	}

//class: '|SmallQuiz:VtHick|,
//class "company" called "Company" of { "cardfile" "Names" } contains 
class "SmallQuiz:VtHick" called "Results" of "SmallQuiz:VtHick" contains
	{
	firstName: string called "First"
	lastName: string called "Last"
	military: integer called "Q) Military Draft"
	radio:integer called "Q) Radio"
	sex:integer called "Q) Sex"
	drugs:integer called "Q) Drugs"
	immigration:integer called "Q) Immigration"
	farmers:integer called "Q) Farmers"
	freetrade:integer called "Q) FreeTrade"
	minimumWage:integer called "Q) MiniumWage"
	endTaxes:integer called "Q) End Taxes"
	defense:integer called "Q) Japan & Europe Defense"
	address1:string called "Address1"
	address2:string called "Address2"
	city:string called "City"
	state:string called "State"
	zip:string called "Zip"
	phone:string called "Phone"
	email:string called "Email" class "mailClasses"
	info:boolean called "Send Info"
	join:boolean called "Join Party"
	newsletter:boolean called "Newsletter"
	misc:boolean called "Misc"
	emailList:boolean called "Email List"
	whatSex:string called "Sex"
	whatAge:string called "Age"
	whatIncome:string called "Income"
	ownBusiness:string called "Employment Status"
	whatOccupation:string called "Occupation"
	whatNewspaper:string called "Newspaper"
	whatTV:string called "TV"
	whatRadio:string called "Radio"
	voteStatus:string called "Voting Status"
	familyNum:string called "# in household"
	ownRent:string called "Living Arrangements"
	ownGun:string called "Gun Status"
	}


field class "mailClasses" |string.email| is "Email" ""
field class "mailClasses" |string.email.internet| is "Internet" ""
field class "mailClasses" |string.email.aol| is "America Online" ""
field class "mailClasses" |string.email.compuserve| is "CompuServe" ""
field class "mailClasses" |string.email.mcimail| is "MCI Mail" ""
field class "mailClasses" |string.email.attmail| is "AT&T Mail" ""
field class "mailClasses" |string.email.easylink| is "EasyLink" ""
field class "mailClasses" |string.email.prodigy| is "Prodigy" ""
field class "mailClasses" |string.email.genie| is "GEnie" ""
field class "mailClasses" |string.email.delphi| is "Delphi" ""
field class "mailClasses" |string.email.msn| is "Network" ""
field class "mailClasses" |string.email.interchange| is "Interchange" ""
field class "mailClasses" |string.email.radiomail| is "RadioMail" ""
